home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / TUTOR03.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-21  |  530b  |  29 lines
  1. program TUTOR03;
  2. {$N+,E+}          {Required for floating point number handling}
  3. uses
  4.    CRT,
  5.    GSOB_DBF;
  6. var
  7.    MyFile  : GSO_dBaseFld;
  8.    s1,
  9.    s2      : string[30];
  10.    s3      : string[8];
  11.  
  12. begin
  13.    ClrScr;
  14.    MyFile.Init('TUTOR1');
  15.    MyFile.Open;
  16.  
  17.    s1 := 'ThisIsALastName';
  18.    s2 := 'HereIsAFirstName';
  19.    s3 := '08/11/92';
  20.  
  21.    MyFile.Blank;
  22.    Myfile.StringPut('LASTNAME',s1);
  23.    Myfile.StringPut('FIRSTNAME',s2);
  24.    Myfile.StringPut('BIRTHDATE',s3);
  25.    MyFile.Append;
  26.  
  27.    MyFile.Close;
  28. end.
  29.